Returns a Shape object that represents the shape attached to the specified comment, diagram node, or hyperlink.
expression.Shape
expression Required. An expression that returns one of the objects in the Applies To list.
This example selects comment two on the active sheet.
ActiveSheet.Comments(2).Shape.Select